home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 34
/
Amiga Format CD34 (1998-11-20)(Future Publishing)(GB)[!][Christmas issue].iso
/
-seriously_amiga-
/
programming
/
basic
/
blitzc2p
/
game
/
makebackgrounds.ascii
next >
Wrap
Text File
|
1998-10-01
|
493b
|
22 lines
WBStartup
DEFTYPE.l
;Convert backdrop from planar 64 colours to chunky 256 colours
InitPalette 0,64
BitMap 0,320,1600,8
InitBank 0,320*1600,$10000
Screen 0,0,0,320,1600,8,0,"",0,0,0
VWait 50
LoadBitMap 0,"Work2:BackgroundsStore/Default.IFF",0
Use Palette 0
SavePalette 0,"Work2:Rupture/Backgrounds/Default.Palette"
For y.l=0 To 1600-1
For x.l=0 To 320-1
NPokeB Bank(0)+(y*320)+x,Point(x,y) AND $FF
Next x
Next y
BSave "Work2:Rupture/Backgrounds/Default.Chunky",Bank(0),320*1600
End